home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 09-12.BAS < prev    next >
BASIC Source File  |  1991-06-07  |  661b  |  38 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DIM PixelRuns AS STRING*20000
  6.  
  7. NewMode = FGbestmode(320,200,1)
  8. IF NewMode < 0 OR NewMode = 12 THEN
  9.    PRINT "This program requires a 320 x 200 color graphics mode."
  10.    STOP
  11. END IF
  12.  
  13. OldMode = FGgetmode
  14. FGsetmode NewMode
  15.  
  16. OPEN "coral.spr" FOR BINARY AS #1
  17. FileSize = LOF(1)
  18. GET #1, 1, PixelRuns
  19. CLOSE #1
  20. RunCount = FileSize / 2
  21. FGmove 0, 199
  22. FGdisplay PixelRuns, RunCount, 320
  23. FGwaitkey
  24.  
  25. OPEN "coral.ppr" FOR BINARY AS #1
  26. FileSize = LOF(1)
  27. GET #1, 1, PixelRuns
  28. CLOSE #1
  29. RunCount = FileSize / 3 * 2
  30. FGerase
  31. FGdisplayp PixelRuns, RunCount, 320
  32. FGwaitkey
  33.  
  34. FGsetmode OldMode
  35. FGreset
  36.  
  37. END
  38.